Function binToDec(Value :string) : string;
var
str : String;
Int : Integer;
i : integer;
BEGIN
Str := UpperCase(Value);
Int := 0;
FOR i := 1 TO Length(str) DO
Int := Int * 2+ ORD(str[i]) - 48;//‘0’对应的ASCII为48
Result := IntToStr(Int);
end;
PASCAL实现二进制字符串转十进制字符串
最新推荐文章于 2022-03-12 14:42:19 发布